home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
tool_inc.zip
/
DTOF.INT
< prev
next >
Wrap
Text File
|
1989-06-02
|
317b
|
11 lines
type
double = array[0..7] of byte;
function dtof(B: double): real;
{convert 8 byte double to real}
function dtol(B: double): longint;
{convert 8 byte double to long integer}
procedure ftod(PasReal: real; var B: double);
{convert real to 8 byte double}
procedure incd(var d: double; n: real);